home *** CD-ROM | disk | FTP | other *** search
/ Computer Life 1997 February / Computer Life February 1997.iso / TELME / COMMS / FMOD0001.SRP < prev    next >
Text File  |  1996-06-04  |  2KB  |  106 lines
  1. rem Copyright (c) PhoneLink plc
  2. rem PCMCIA Fast Connect Modem (10/8/95)
  3. rem Modified 7/9/95
  4.  
  5. label InitDevice
  6. echo off
  7. label OffToGate
  8. rem Offline to Gate (also contains Pad to Gate)
  9. echo off
  10. rem Initialisation string 
  11. rem send    "at&f&c1&d2%f3s15=120s24=0s25=15char(13)"
  12. echo script[57]
  13. send    "at{InitModemStr}char(13)"
  14. timeout 3,modem_fail
  15. find    "OK"
  16. send   "atd{DialMode}{PreTel}{SiteTel}{PostFix}char(13)"
  17. echo script[52]..
  18. timeout {DialTimeout},connect_fail
  19. finderr 0,BUSY,busy
  20. finderr 103,NO DIALTONE,connect_fail
  21. finderr 0,NO CARRIER,no_carrier  
  22. find    "PAD>"
  23.  
  24. label PadToGate
  25. echo script[53]
  26. echo off
  27. send    "SER{SUB}char(13)"
  28. timeout 3,nua_bad1
  29. finderr 0,COM,nua_good
  30. find    "ZZZ"
  31. label nua_bad1
  32. echo script[58]
  33. send    "SER{SUB}char(13)"
  34. timeout 3,nua_bad2
  35. finderr 0,COM,nua_good
  36. find    "ZZZ"
  37. label nua_bad2
  38. echo script[58]
  39. send    "SER{SUB}char(13)"
  40. timeout 3,nua_fail
  41. find    "COM"
  42. label nua_good
  43. echo script[54].
  44. mwait 500
  45. end
  46.  
  47. label GateToPad
  48. echo off
  49. echo script[92]
  50. send    "char(16)CLRchar(13)"
  51. timeout 3,ctrl_p_clear_fail
  52. find    "CONF"
  53. echo script[91]..
  54. end
  55.  
  56. label GateToOff
  57. rem Gate To Offline (also contains Pad to Offline)
  58. echo off
  59. label PadToOff
  60. echo off
  61. echo script[92]
  62. send    "char(31)char(31)char(31)char(31)"
  63. wait 1
  64. dtrtoggle
  65. echo script[99].
  66. mwait 250
  67. send    "at&fchar(13)"
  68. end
  69.  
  70. label modem_offline
  71. echo script[92]
  72. send    "char(31)char(31)char(31)char(31)"
  73. wait 1
  74. dtrtoggle
  75. label modem_reset
  76. mwait 250
  77. send    "at&fchar(13)"
  78. abort
  79.  
  80. label modem_fail
  81. echo script[23]
  82. goto modem_offline
  83.  
  84. label connect_fail
  85. echo script[1]
  86. goto modem_offline
  87.  
  88. label busy
  89. echo script[2]
  90. goto modem_offline
  91.  
  92. label no_carrier
  93. echo script[3]
  94. goto modem_offline
  95.  
  96. label nua_fail
  97. echo script[22]
  98. goto modem_offline
  99.  
  100. label ctrl_p_clear_fail
  101. echo script[14]
  102. goto modem_offline
  103.  
  104.  
  105.  
  106.